home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / shortwriter v1.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 y=16:z=0:a=4096:poke53281,9:poke53280,0:poke204,1:printchr$(14):poke657,128
  2. 1 input"[147]1.[197][201][206][199][197][194][197][206] 2.[211][208][197][201][195][200][197][210][206] 3.[215][197][201][212][197][210][211][195][200][210][197][201][194][197][206]";x:print"[144][147]";:ifx=2thengoto8
  3. 2 ifx=3 then gosub7:goto3:data169,139,160,10,133,95,132,96
  4. 3 geta$:ifa$=""thengoto3:data169,138,160, 12,133, 90,132, 91,169,  2
  5. 4 pokea,asc(a$):printa$;:a=a+1:z=z+1:ifz=256thenz=0:y=y+1:data160, 10,133, 88
  6. 5 ifa$<>"[133]"thengoto3:data132, 89,32,191,163,169,54,141,1,8,169,8,141,2,8,32,237
  7. 6 a=a-1:goto1:data245,76,226,252
  8. 7 print"[147]";:fort=4097toa:printchr$(peek(t));:nextt:return
  9. 8 a1=a-4095:fort=4050to4095:ifa1>255thenpoket,255:a1=a1-255:nextt
  10. 9 poket,a1:a1=0:nextt:input"[147]filename:";a$:sys57812""+a$,8:poke174,z:poke175,y
  11. 10 poke193,1:poke194,8:poke95,202:poke96,09:poke90,112:poke91,11:poke88,169
  12. 11 poke89,9:fort=3304to3346:readx:poket,x:nextt:sys3304
  13. 12 fort=4050to4095:a=a+peek(t):next:a=a+4096:printchr$(14):poke657,128
  14. 13 poke649,0:print"[147][201]dee und [208]rogramm von  [196]avid van [194]ebber ";:l=54272
  15. 14 fork=0to24:readx:pokel+k,x:next:data9,2,0,3,0,0,240,12,2,0,4,0,0,192,16,2,0
  16. 15 data6,0,0,64,0,30,243,31,120,169,16,141,20,3,169,15,141,21,3,88,96,255,0,0
  17. 16 data162,240,169,0,141,32,208,232,208,253,169,0,141,32,208,76,49,234,49
  18. 17 fort=3840to3874:readx:poket,x:nextt:sys3840:poke53281,9:forr=1to2000:nextr
  19. 18 printchr$(14);"[144][147][146]";:pokel+4,65:pokel+11,65:pokel+18,65:fort=4096toa-1
  20. 19 a$=chr$(peek(t)):printa$;:poke3859,asc(a$):forr=1to20:nextr:nextt:sys64738
  21.